3.428 \(\int \frac{\left (a+b x^2\right )^p}{x (d+e x)^3} \, dx\)

Optimal. Leaf size=700 \[ -\frac{e^3 x^3 \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{3}{2};-p,2;\frac{5}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{3 d^6}-\frac{e^3 x^3 \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{3}{2};-p,3;\frac{5}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^6}-\frac{e x \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{1}{2};-p,1;\frac{3}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^4}-\frac{e x \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{1}{2};-p,2;\frac{3}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^4}-\frac{e x \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{1}{2};-p,3;\frac{3}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^4}+\frac{3 b^2 d e^2 \left (a+b x^2\right )^{p+1} \, _2F_1\left (3,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{2 (p+1) \left (a e^2+b d^2\right )^3}-\frac{\left (a+b x^2\right )^{p+1} \, _2F_1\left (1,p+1;p+2;\frac{b x^2}{a}+1\right )}{2 a d^3 (p+1)}-\frac{b e^2 \left (a+b x^2\right )^{p+1} \left (2 a e^2+b d^2 (p+1)\right ) \, _2F_1\left (2,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{4 d (p+1) \left (a e^2+b d^2\right )^3}+\frac{b e^2 \left (a+b x^2\right )^{p+1} \, _2F_1\left (2,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{d (p+1) \left (a e^2+b d^2\right )^2}+\frac{d e^2 \left (a+b x^2\right )^{p+1}}{4 \left (d^2-e^2 x^2\right )^2 \left (a e^2+b d^2\right )}+\frac{e^2 \left (a+b x^2\right )^{p+1} \, _2F_1\left (1,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{2 d^3 (p+1) \left (a e^2+b d^2\right )} \]

[Out]

(d*e^2*(a + b*x^2)^(1 + p))/(4*(b*d^2 + a*e^2)*(d^2 - e^2*x^2)^2) - (e*x*(a + b*
x^2)^p*AppellF1[1/2, -p, 1, 3/2, -((b*x^2)/a), (e^2*x^2)/d^2])/(d^4*(1 + (b*x^2)
/a)^p) - (e*x*(a + b*x^2)^p*AppellF1[1/2, -p, 2, 3/2, -((b*x^2)/a), (e^2*x^2)/d^
2])/(d^4*(1 + (b*x^2)/a)^p) - (e*x*(a + b*x^2)^p*AppellF1[1/2, -p, 3, 3/2, -((b*
x^2)/a), (e^2*x^2)/d^2])/(d^4*(1 + (b*x^2)/a)^p) - (e^3*x^3*(a + b*x^2)^p*Appell
F1[3/2, -p, 2, 5/2, -((b*x^2)/a), (e^2*x^2)/d^2])/(3*d^6*(1 + (b*x^2)/a)^p) - (e
^3*x^3*(a + b*x^2)^p*AppellF1[3/2, -p, 3, 5/2, -((b*x^2)/a), (e^2*x^2)/d^2])/(d^
6*(1 + (b*x^2)/a)^p) + (e^2*(a + b*x^2)^(1 + p)*Hypergeometric2F1[1, 1 + p, 2 +
p, (e^2*(a + b*x^2))/(b*d^2 + a*e^2)])/(2*d^3*(b*d^2 + a*e^2)*(1 + p)) - ((a + b
*x^2)^(1 + p)*Hypergeometric2F1[1, 1 + p, 2 + p, 1 + (b*x^2)/a])/(2*a*d^3*(1 + p
)) + (b*e^2*(a + b*x^2)^(1 + p)*Hypergeometric2F1[2, 1 + p, 2 + p, (e^2*(a + b*x
^2))/(b*d^2 + a*e^2)])/(d*(b*d^2 + a*e^2)^2*(1 + p)) - (b*e^2*(2*a*e^2 + b*d^2*(
1 + p))*(a + b*x^2)^(1 + p)*Hypergeometric2F1[2, 1 + p, 2 + p, (e^2*(a + b*x^2))
/(b*d^2 + a*e^2)])/(4*d*(b*d^2 + a*e^2)^3*(1 + p)) + (3*b^2*d*e^2*(a + b*x^2)^(1
+ p)*Hypergeometric2F1[3, 1 + p, 2 + p, (e^2*(a + b*x^2))/(b*d^2 + a*e^2)])/(2*
(b*d^2 + a*e^2)^3*(1 + p))

_______________________________________________________________________________________

Rubi [A]  time = 1.75947, antiderivative size = 700, normalized size of antiderivative = 1., number of steps used = 29, number of rules used = 13, integrand size = 20, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.65 \[ -\frac{e^3 x^3 \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{3}{2};-p,2;\frac{5}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{3 d^6}-\frac{e^3 x^3 \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{3}{2};-p,3;\frac{5}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^6}-\frac{e x \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{1}{2};-p,1;\frac{3}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^4}-\frac{e x \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{1}{2};-p,2;\frac{3}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^4}-\frac{e x \left (a+b x^2\right )^p \left (\frac{b x^2}{a}+1\right )^{-p} F_1\left (\frac{1}{2};-p,3;\frac{3}{2};-\frac{b x^2}{a},\frac{e^2 x^2}{d^2}\right )}{d^4}+\frac{3 b^2 d e^2 \left (a+b x^2\right )^{p+1} \, _2F_1\left (3,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{2 (p+1) \left (a e^2+b d^2\right )^3}-\frac{\left (a+b x^2\right )^{p+1} \, _2F_1\left (1,p+1;p+2;\frac{b x^2}{a}+1\right )}{2 a d^3 (p+1)}-\frac{b e^2 \left (a+b x^2\right )^{p+1} \left (2 a e^2+b d^2 (p+1)\right ) \, _2F_1\left (2,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{4 d (p+1) \left (a e^2+b d^2\right )^3}+\frac{b e^2 \left (a+b x^2\right )^{p+1} \, _2F_1\left (2,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{d (p+1) \left (a e^2+b d^2\right )^2}+\frac{d e^2 \left (a+b x^2\right )^{p+1}}{4 \left (d^2-e^2 x^2\right )^2 \left (a e^2+b d^2\right )}+\frac{e^2 \left (a+b x^2\right )^{p+1} \, _2F_1\left (1,p+1;p+2;\frac{e^2 \left (b x^2+a\right )}{b d^2+a e^2}\right )}{2 d^3 (p+1) \left (a e^2+b d^2\right )} \]

Antiderivative was successfully verified.

[In]  Int[(a + b*x^2)^p/(x*(d + e*x)^3),x]

[Out]

(d*e^2*(a + b*x^2)^(1 + p))/(4*(b*d^2 + a*e^2)*(d^2 - e^2*x^2)^2) - (e*x*(a + b*
x^2)^p*AppellF1[1/2, -p, 1, 3/2, -((b*x^2)/a), (e^2*x^2)/d^2])/(d^4*(1 + (b*x^2)
/a)^p) - (e*x*(a + b*x^2)^p*AppellF1[1/2, -p, 2, 3/2, -((b*x^2)/a), (e^2*x^2)/d^
2])/(d^4*(1 + (b*x^2)/a)^p) - (e*x*(a + b*x^2)^p*AppellF1[1/2, -p, 3, 3/2, -((b*
x^2)/a), (e^2*x^2)/d^2])/(d^4*(1 + (b*x^2)/a)^p) - (e^3*x^3*(a + b*x^2)^p*Appell
F1[3/2, -p, 2, 5/2, -((b*x^2)/a), (e^2*x^2)/d^2])/(3*d^6*(1 + (b*x^2)/a)^p) - (e
^3*x^3*(a + b*x^2)^p*AppellF1[3/2, -p, 3, 5/2, -((b*x^2)/a), (e^2*x^2)/d^2])/(d^
6*(1 + (b*x^2)/a)^p) + (e^2*(a + b*x^2)^(1 + p)*Hypergeometric2F1[1, 1 + p, 2 +
p, (e^2*(a + b*x^2))/(b*d^2 + a*e^2)])/(2*d^3*(b*d^2 + a*e^2)*(1 + p)) - ((a + b
*x^2)^(1 + p)*Hypergeometric2F1[1, 1 + p, 2 + p, 1 + (b*x^2)/a])/(2*a*d^3*(1 + p
)) + (b*e^2*(a + b*x^2)^(1 + p)*Hypergeometric2F1[2, 1 + p, 2 + p, (e^2*(a + b*x
^2))/(b*d^2 + a*e^2)])/(d*(b*d^2 + a*e^2)^2*(1 + p)) - (b*e^2*(2*a*e^2 + b*d^2*(
1 + p))*(a + b*x^2)^(1 + p)*Hypergeometric2F1[2, 1 + p, 2 + p, (e^2*(a + b*x^2))
/(b*d^2 + a*e^2)])/(4*d*(b*d^2 + a*e^2)^3*(1 + p)) + (3*b^2*d*e^2*(a + b*x^2)^(1
+ p)*Hypergeometric2F1[3, 1 + p, 2 + p, (e^2*(a + b*x^2))/(b*d^2 + a*e^2)])/(2*
(b*d^2 + a*e^2)^3*(1 + p))

_______________________________________________________________________________________

Rubi in Sympy [A]  time = 77.7613, size = 445, normalized size = 0.64 \[ \frac{\left (\frac{e \left (\sqrt{b} x + \sqrt{- a}\right )}{\sqrt{b} \left (d + e x\right )}\right )^{- p} \left (- \frac{e \left (- \sqrt{b} x + \sqrt{- a}\right )}{\sqrt{b} \left (d + e x\right )}\right )^{- p} \left (a + b x^{2}\right )^{p} \left (\frac{1}{d + e x}\right )^{2 p} \left (\frac{1}{d + e x}\right )^{- 2 p + 2} \operatorname{appellf_{1}}{\left (- 2 p + 2,- p,- p,- 2 p + 3,\frac{d - \frac{e \sqrt{- a}}{\sqrt{b}}}{d + e x},\frac{d + \frac{e \sqrt{- a}}{\sqrt{b}}}{d + e x} \right )}}{2 d \left (- p + 1\right )} + \frac{\left (\frac{e \left (\sqrt{b} x + \sqrt{- a}\right )}{\sqrt{b} \left (d + e x\right )}\right )^{- p} \left (- \frac{e \left (- \sqrt{b} x + \sqrt{- a}\right )}{\sqrt{b} \left (d + e x\right )}\right )^{- p} \left (a + b x^{2}\right )^{p} \left (\frac{1}{d + e x}\right )^{2 p} \left (\frac{1}{d + e x}\right )^{- 2 p + 1} \operatorname{appellf_{1}}{\left (- 2 p + 1,- p,- p,- 2 p + 2,\frac{d - \frac{e \sqrt{- a}}{\sqrt{b}}}{d + e x},\frac{d + \frac{e \sqrt{- a}}{\sqrt{b}}}{d + e x} \right )}}{d^{2} \left (- 2 p + 1\right )} - \frac{\left (\frac{e \left (\sqrt{b} x + \sqrt{- a}\right )}{\sqrt{b} \left (d + e x\right )}\right )^{- p} \left (- \frac{e \left (- \sqrt{b} x + \sqrt{- a}\right )}{\sqrt{b} \left (d + e x\right )}\right )^{- p} \left (a + b x^{2}\right )^{p} \operatorname{appellf_{1}}{\left (- 2 p,- p,- p,- 2 p + 1,\frac{d - \frac{e \sqrt{- a}}{\sqrt{b}}}{d + e x},\frac{d + \frac{e \sqrt{- a}}{\sqrt{b}}}{d + e x} \right )}}{2 d^{3} p} - \frac{\left (a + b x^{2}\right )^{p + 1}{{}_{2}F_{1}\left (\begin{matrix} 1, p + 1 \\ p + 2 \end{matrix}\middle |{1 + \frac{b x^{2}}{a}} \right )}}{2 a d^{3} \left (p + 1\right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  rubi_integrate((b*x**2+a)**p/x/(e*x+d)**3,x)

[Out]

(e*(sqrt(b)*x + sqrt(-a))/(sqrt(b)*(d + e*x)))**(-p)*(-e*(-sqrt(b)*x + sqrt(-a))
/(sqrt(b)*(d + e*x)))**(-p)*(a + b*x**2)**p*(1/(d + e*x))**(2*p)*(1/(d + e*x))**
(-2*p + 2)*appellf1(-2*p + 2, -p, -p, -2*p + 3, (d - e*sqrt(-a)/sqrt(b))/(d + e*
x), (d + e*sqrt(-a)/sqrt(b))/(d + e*x))/(2*d*(-p + 1)) + (e*(sqrt(b)*x + sqrt(-a
))/(sqrt(b)*(d + e*x)))**(-p)*(-e*(-sqrt(b)*x + sqrt(-a))/(sqrt(b)*(d + e*x)))**
(-p)*(a + b*x**2)**p*(1/(d + e*x))**(2*p)*(1/(d + e*x))**(-2*p + 1)*appellf1(-2*
p + 1, -p, -p, -2*p + 2, (d - e*sqrt(-a)/sqrt(b))/(d + e*x), (d + e*sqrt(-a)/sqr
t(b))/(d + e*x))/(d**2*(-2*p + 1)) - (e*(sqrt(b)*x + sqrt(-a))/(sqrt(b)*(d + e*x
)))**(-p)*(-e*(-sqrt(b)*x + sqrt(-a))/(sqrt(b)*(d + e*x)))**(-p)*(a + b*x**2)**p
*appellf1(-2*p, -p, -p, -2*p + 1, (d - e*sqrt(-a)/sqrt(b))/(d + e*x), (d + e*sqr
t(-a)/sqrt(b))/(d + e*x))/(2*d**3*p) - (a + b*x**2)**(p + 1)*hyper((1, p + 1), (
p + 2,), 1 + b*x**2/a)/(2*a*d**3*(p + 1))

_______________________________________________________________________________________

Mathematica [A]  time = 0.0688373, size = 0, normalized size = 0. \[ \int \frac{\left (a+b x^2\right )^p}{x (d+e x)^3} \, dx \]

Verification is Not applicable to the result.

[In]  Integrate[(a + b*x^2)^p/(x*(d + e*x)^3),x]

[Out]

Integrate[(a + b*x^2)^p/(x*(d + e*x)^3), x]

_______________________________________________________________________________________

Maple [F]  time = 0.084, size = 0, normalized size = 0. \[ \int{\frac{ \left ( b{x}^{2}+a \right ) ^{p}}{x \left ( ex+d \right ) ^{3}}}\, dx \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  int((b*x^2+a)^p/x/(e*x+d)^3,x)

[Out]

int((b*x^2+a)^p/x/(e*x+d)^3,x)

_______________________________________________________________________________________

Maxima [F]  time = 0., size = 0, normalized size = 0. \[ \int \frac{{\left (b x^{2} + a\right )}^{p}}{{\left (e x + d\right )}^{3} x}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate((b*x^2 + a)^p/((e*x + d)^3*x),x, algorithm="maxima")

[Out]

integrate((b*x^2 + a)^p/((e*x + d)^3*x), x)

_______________________________________________________________________________________

Fricas [F]  time = 0., size = 0, normalized size = 0. \[{\rm integral}\left (\frac{{\left (b x^{2} + a\right )}^{p}}{e^{3} x^{4} + 3 \, d e^{2} x^{3} + 3 \, d^{2} e x^{2} + d^{3} x}, x\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate((b*x^2 + a)^p/((e*x + d)^3*x),x, algorithm="fricas")

[Out]

integral((b*x^2 + a)^p/(e^3*x^4 + 3*d*e^2*x^3 + 3*d^2*e*x^2 + d^3*x), x)

_______________________________________________________________________________________

Sympy [F(-1)]  time = 0., size = 0, normalized size = 0. \[ \text{Timed out} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate((b*x**2+a)**p/x/(e*x+d)**3,x)

[Out]

Timed out

_______________________________________________________________________________________

GIAC/XCAS [F]  time = 0., size = 0, normalized size = 0. \[ \int \frac{{\left (b x^{2} + a\right )}^{p}}{{\left (e x + d\right )}^{3} x}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate((b*x^2 + a)^p/((e*x + d)^3*x),x, algorithm="giac")

[Out]

integrate((b*x^2 + a)^p/((e*x + d)^3*x), x)